10 POKE 52,28:POKE56,28:CLR:DIMN(7)
20 FOR T=7168 TO 7679:POKE T,PEEK(T+25600):NEXT
30 POKE36869,255
40 READ A: IF A=-1 THEN200
50 FOR T=0TO7:READ B:POKE7168+A*8+T,B:NEXT
60 GOTO 40
200 DATA-1
7990 STOP
8000 PRINTCHR$(147)CHR$(18)"  76543210  ":REM 2 SPACES BEFORE AND AFTER #
8010 FOR T=0TO7: PRINTCHR$(18)T SPC(7)T:NEXT:PRINTCHR$(18)"  76543210  "
8020 POKE36869,240:FORT=38400 TO 38632:POKET,6:NEXT:L=7704:TH=32
8030 CH=160:LL=7704:PRINT"F1=PRINT F3=ERASE":PRINT"SPACE=MARK F5=ENTER"
8040 POKELL,160:FOR T=1 TO 10:NEXT:POKELL,32
8050 IF PEEK(197)=39 THEN CH=160
8060 IF PEEK(197)=47 THEN CH=32
8070 IF PEEK(197)=17 THEN Y=Y-1:IFY<0 THEN Y=0
8080 IF PEEK(197)=18 THENY=Y+1:IFY>7 THENY=7
8090 IF PEEK(197)=9 THEN X=X-22: IF X<0 THEN X=0
8100 IF PEEK(197)=26 THEN X=X+22:IFX>220 THEN X=220
8110 IF PEEK(197)=32 THEN TH=CH
8120 IF PEEK(197) =55 THEN 8140
8130 POKELL,TH:LL=L+X+Y:TH= PEEK(LL):GOTO8040
8140 PRINT CHR$(19)CHR$(17);:FOR X=0TO7:FOR Y=0TO7:FORT=631TO640:POKET,0:NEXT
8150 FORX=0TO7:FORY=0TO7:IF PEEK(7704+X*22+Y)=160THENN(X)=N(X)+2^(7-Y)
8160 NEXT Y:PRINT TAB(14)N(X):NEXT X:PRINT:PRINT:PRINT
8170 PRINT"ENTER SCREEN"
8180 INPUT"CODE #";A:IFA<0ORA>64THEN8170
8190 PRINTCHR$(147)CHR$(17)CHR$(17)
8200 Q=Q+1:PRINT60+Q"DATA"A;:FORT=0TO7:PRINT","RIGHT$(STR$(N(T)),LEN(STR$(N(T)))-1);
8210 NEXT:PRINT:PRINT:PRINT"Q="Q":";
8220 PRINT"GOTO20":RESTORE
8230 PRINT"GOTO8000=CONTINUE     GOTO9000=END"
8240 POKE198,0:POKE631,13:POKE632,17:POKE633,13:POKE198,3:END
9000 PRINTCHR$(147)CHR$(17)CHR$(17):FORT=7990TO8070STEP10:PRINTT:NEXT:PRINT"GOTO9020
9010 [129]T[178]631[164]640:[151]T,13:[151]198,10:[130]:[153][199](19):[128]
9020 [153][199](147)[199](17)[199](17):[129]T[178]8080[164]8160[169]10:[153]T:[130]:[153]"GOTO9040"
9030 [129]T[178]631[164]640:[151]T,13:[130]:[153][199](19):[151]198,10:[128]
9040 [153][199](147)[199](17)[199](17):[129]T[178]8170[164]8240[169]10:[153]T:[130]:[153]"GOTO9060"
9050 [129]T[178]631[164]640:[151]T,13:[130]:[153][199](19):[151]198,10:[128]
9060 [153][199](147)[199](17)[199](17):[129]T[178]9000[164]9070[169]10:[153]T:[130]
9070 [129]T[178]631[164]640:[151]T,13:[130]:[153][199](19):[151]198,10:[128]